home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue25 / hipsquar / REGIONS.DPR < prev    next >
Encoding:
Text File  |  1997-06-08  |  1.6 KB  |  46 lines
  1. {*********************************************************}
  2. {                                                         }
  3. {     Creating Non-Rectangular Windows                    }
  4. {                                                         }
  5. {     Requires Win32 API (Delphi 2.0 or 3.0 or newer)     }
  6. {                                                         }
  7. {     Copyright ⌐ 1997 Steven J. Colagiovanni             }
  8. {                                                         }
  9. {*********************************************************}
  10.  
  11. program Regions;
  12.  
  13. uses
  14.   Forms,
  15.   F_Main in 'F_Main.pas' {frmMain},
  16.   ellipse in 'ellipse.pas' {frmEllipse},
  17.   bowtie in 'bowtie.pas' {frmBowTie},
  18.   Aperture in 'Aperture.pas' {frmAperture},
  19.   Hourglas in 'Hourglas.pas' {frmHourGlass},
  20.   Delphi in 'Delphi.pas' {frmDelphi},
  21.   Text in 'Text.pas' {frmText};
  22.  
  23. {$R *.RES}
  24.  
  25. begin
  26.     { Load frm.Text and show for use as splash screen }
  27.     { Select "Options..." from Delphi's "Project" menu
  28.         and make certain that frmText is not in the
  29.         "Auto-create forms" list box. }
  30.     frmText := TfrmText.Create(Application);
  31.     frmText.Show;
  32.     frmText.Repaint;
  33.     { Splash screen is closed (or destroyed) in the
  34.         frmMain.FormActivate event }
  35.  
  36.     Application.Initialize;
  37.     Application.Title := 'Non-Rectangular Windows Demonstration';
  38.     Application.CreateForm(TfrmMain, frmMain);
  39.   Application.CreateForm(TfrmEllipse, frmEllipse);
  40.   Application.CreateForm(TfrmBowTie, frmBowTie);
  41.   Application.CreateForm(TfrmAperture, frmAperture);
  42.   Application.CreateForm(TfrmHourGlass, frmHourGlass);
  43.   Application.CreateForm(TfrmDelphi, frmDelphi);
  44.   Application.Run;
  45. end.
  46.